home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue31 / delcom / Global.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-11-25  |  1.4 KB  |  35 lines
  1. unit Global;
  2. {********************************************************************}
  3. {**  Unit : Global                                                 **}
  4. {**                                                                **}
  5. {**  Description : Global variables and constants use in the shell **}
  6. {**  extension. Inparticular it contains the refernce count for the**}
  7. {**  DLL and it's CLSID definition.                                **}
  8. {**                                                                **}
  9. {**  Version History :                                             **}
  10. {**                                                                **}
  11. {**  A0.01     Initial version started                   27/10/96  **}
  12. {**                                                                **}
  13. {** Copyright ⌐1996 David J. Fiddes                                **}
  14. {********************************************************************}
  15. interface
  16. uses
  17.   OLE2;
  18.  
  19. {** The Class ID(CLSID) for the Shell Extension **}
  20. const
  21.   CLSID_PropSheet : TCLSID =
  22.    (D1:$AA6A37C0;D2:$04F9;D3:$11D0;D4:($8A,$FB,$00,$C0,$DF,$44,$27,$3E));
  23.  
  24.   StrCLSID_PropSheet = '{AA6A37C0-04F9-11D0-8AFB-00C0DF44273E}';
  25.   StrProgID = 'MWWProp.1'; 
  26.   StrDescription = 'Warrens Music Works2 Properties Sheet';
  27.  
  28. {** The reference count for the DLL - when this is zero we unload the DLL **}
  29.   RefThisDLL : longint = 0;
  30.  
  31.  
  32. implementation
  33.  
  34. end.
  35.